8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search

/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / WRDGME.ARC / GEOW7 (.txt) < prev

Wrap

GEOS ConVerT | 2019-04-13 | 7.8 KB | 422 lines

J!GeoWShake PRG formatted GEOS file V1.0 NX1000 ;$GEOWORDSMAI BLASTER'S CONVERTER V2.5 ;&GEOWSHAKE GeoWTiles Write Image V2.1 geoWrite V2.1 .if Pass1 .noeqin .noglbl .include geosSym .include geosMac .include GeoWEquates .include GeoWZips .glbl .eqin .endif .psect SHAKESTA: lda norndflg beq nrflgis0 SHAKESTA: lda norndflg beq nrflgis0 nrflgis1: jmp BuildGri nrflgis0: LoadB tileposi,#$00 lda WhchGmFl beq lookagai jmp GmTwoRnd lookagai: jsr GetRando ;******* lda r lookagai: jsr GetRando ;******* lda random ;original cmp #$10 ;routine bcs lookagai ;******* sta word1kee asl a asl a clc adc word1kee adc word1kee sta word1kee tay lda Word1,y beq lookhilo jmp GetLetPo MyRndStr: .byte #$00 lookhilo: lda word1kee cmp #$00 beq onlyups cmp #$5a beq onlydown cmp #$06 beq down1up2 cmp #$54 beq up1down2 jsr down6 jsr down6 clc lda word1kee lookhilo: lda word1kee cmp #$00 beq onlyups cmp #$5a beq onlydown cmp #$06 beq down1up2 cmp #$54 beq up1down2 jsr down6 jsr down6 clc lda word1kee adc #$0c sta word1kee jsr up6 jsr up6 jmp lookagai onlyups: jsr up6 jsr up6 jmp lookagain onlydown: jsr down6 jsr down6 jmp lookagain down1up2: jsr down6 clc lda word1kee adc #$06 sta word1kee jsr up6 jsr up6 jmp lookagain up1down2: jsr down6 jsr down6 clc lda word1kee adc #$0c sta word1kee jsr up6 jmp lookagain up6: clc lda word1kee adc #$06 sta word1kee tay lda Word1,y beq gb61 pla pla jmp GetLetPo gb61: rts down6: up6: clc lda word1kee adc #$06 sta word1kee tay lda Word1,y beq gb61 pla pla jmp GetLetPo gb61: rts down6: sec lda word1kee sbc #$06 sta word1kee tay lda Word1,y beq gb62 pla pla jmp GetLetPo gb62: rts GetLetPo: jsr GetRando lda random cmp #$06 bcs tryrpl1 sta letter1p jmp numsok tryrpl1: lda random + 1 cmp #$06 bcs GetLetPo sta letter1p numsok: lda word1kee clc GetLetPo: jsr GetRando lda random cmp #$06 bcs tryrpl1 sta letter1p jmp numsok tryrpl1: lda random + 1 cmp #$06 bcs GetLetPo sta letter1p numsok: lda word1kee clc adc letter1p sta totalpos tay lda Word1,y notzeroe: ldy tileposi sta TileResu,y lda word1kee clc adc #$06 sta word3kee ldy word1kee lda #$00 30$: sta Word1,y iny cpy word3kee bne 30$ ldy tileposi iny sty tileposi cpy #$10 bcs quittile jmp lookagai quittile: jmp BuildGri ;jsr/rts GmTwoRnd: jsr GetRando jsr GetRando lda random cmp #$60 bcc usethisn lda random + 1 cmp #$60 bcc usethisn jmp GmTwoRnd usethisn: tay lda Word1,y beq GmTwoRnd: jsr GetRando jsr GetRando lda random cmp #$60 bcc usethisn lda random + 1 cmp #$60 bcc usethisn jmp GmTwoRnd usethisn: tay lda Word1,y beq GmTwoRnd pha lda #$00 sta Word1,y pla ldy tileposi sta TileResu,y iny sty tileposi cpy #$10 bcs quit2til jmp GmTwoRnd quit2til: jmp BuildGri ;jsr/rts BuildGri: LoadB dispBuff,#ST_WR_BA LoadB BGRIDXST,#$13 LoadB BGRIDYST,#$28 ldy # BuildGri: LoadB dispBuff,#ST_WR_BA LoadB BGRIDXST,#$13 LoadB BGRIDYST,#$28 ldy #$ff sty StoreTil resetx: ldx #$00 stx Store2Ti placetil: ldy StoreTil iny cpy #$10 bcc mortilng jmp endtiles mortilng: lda TileResu,y cmp #$61 bcc mkeitbln cmp #$7b bcs mkeitbln jmp noneedbl mkeitbln: lda #$7c noneedbl: sty StoreTil sec sbc #$61 asl a tay SendTile: MoveB "Alocstor,y",r0L MoveB "Alocstor + 1,y",r0H MoveB BGRIDXST,r1L MoveB BGRIDYST,r1H LoadB r2L,#$05 LoadB r2H,#$20 jsr BitmapUp DOBlanks: LoadB dispBuff, #ST_WR_FO MoveW BLlocsto,r0L MoveB BGRIDXST,r1L MoveB BGRIDYST,r1H LoadB r2L,#$05 LoadB r2H,#$20 jsr Bitma DOBlanks: LoadB dispBuff, #ST_WR_FO MoveW BLlocsto,r0L MoveB BGRIDXST,r1L MoveB BGRIDYST,r1H LoadB r2L,#$05 LoadB r2H,#$20 jsr BitmapUp LoadB dispBuff,#ST_WR_BA ldx Store2Ti inx stx Store2Ti cpx #$04 bcs newrow lda BGRIDXST clc adc #$05 sta BGRIDXST jmp placetil newrow: LoadB BGRIDXST,#$13 lda BGRIDYST clc adc #$20 sta BGRIDYST ldx #$00 stx Store2Ti jmp resetx endtiles: LoadB dispBuff, #(ST_WR_FO | ST_WR_BA) rts BGRIDXST: .byte #$13 BGRIDYST: .byte #$28 StoreTil: .byte #$00 Store2Ti: .byte #$00 prevlet: .byte #$00 Alocstor: .word Let BGRIDXST: .byte #$13 BGRIDYST: .byte #$28 StoreTil: .byte #$00 Store2Ti: .byte #$00 prevlet: .byte #$00 Alocstor: .word LetAPic Blocstor: .word LetBPic Clocstor: .word LetCPic Dlocstor: .word LetDPic Elocstor: .word LetEPic Flocstor: .word LetFPic Glocstor: .word LetGPic Hlocstor: .word LetHPic Ilocstor: .word LetIPic Jlocstor: .word LetJPic Klocstor: .word LetKPic Llocstor: .word LetLPic Mlocstor: .word LetMPic Nlocstor: .word LetNPic Olocstor: .word LetOPic Plocstor: .word LetPPic Qlocstor: .word LetQUPic Rlocstor: .word LetRPic Slocstor: .word LetSPic Tlocstor: .word LetTPic Ulocstor: .word LetUPic Vlocstor: .word LetVPic Wlocstor: .word LetWPic Xlocstor: .word LetXPic Ylocstor: .word LetYPic Zlocstor: .word LetZPic QUlocsto: .word LetQUPic BLlocsto: .word LetBLPic ORIGINAL: word3kee: .byte #$00 clean1ke: .byte #$00 tileposi: .byte #$00 word1kee: .byte #$00 word2kee: .byte #$00 letter1p: .byt ORIGINAL: word3kee: .byte #$00 clean1ke: .byte #$00 tileposi: .byte #$00 word1kee: .byte #$00 word2kee: .byte #$00 letter1p: .byte #$00 letter2p: .byte #$00 totalpos: .byte #$00 Word1: .byte "luykeg" Word2: .byte "guwlir" Word3: .byte "untkdo" Word4: .byte "orbfix" Word5: .byte "fyieeh" Word6: .byte "mhoras" Word7: .byte "petusl" Word8: .byte "zedvna" Word9: .byte "nsiphe" Word10: .byte "latbyi" Word11: .byte "cmepad" Word12: .byte "rascel" Word13: .byte "wonsed" Word14: .byte "coaita" Word15: .byte "givnet" Word16: .byte "qajbom" keepmywo: .byte #$00 SHAKEEND: GeoWORDS Tile Placement Module copyright 1989 David B. Ferguson Written: DATE GeoWORDS Tile Placement Module copyright 1989 David B. Ferguson Written: DATE Page #PAGE GeoWords Tile Placement Module Page # GeoWords Tile Placement Module Page #PAGE Written: DATE